home *** CD-ROM | disk | FTP | other *** search
/ Publication 5 / Publication_05_19xx_High-Tech_de_Side_A.d64 / text-scroller (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  316b  |  15 lines
  1. 10 rem
  2. 11 rem bildschirm loeschen + farben
  3. 12 rem
  4. 13 poke53281,7:poke53280,2:poke646,0:print"[147]"chr$(14)
  5. 14 rem
  6. 15 rem text in a$  , k=zeile
  7. 16 rem
  8. 17 a$="[196]ies ist eine kleine [196]emonstration":k=10:gosub50:a$="der [210]outine!":k=11
  9. 18 gosub50:end
  10. 50 rem
  11. 51 rem routine
  12. 52 rem
  13. 53 m=len(a$):fori=1toint(m/2):print"":forj=1tok:print"";:next
  14. 54 printspc(20-i)left$(a$,i)right$(a$,i):next:return
  15.